home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / view.G < prev    next >
Encoding:
Text File  |  1992-12-25  |  27.9 KB  |  981 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   menu_image
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             ""
  11.     :menu-item-labels       ("Load ..." "Save as ..." "List ..." "Quit" )
  12.     :menu-item-label-types  (:string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active )
  14.     :menu-item-defaults     (nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil )
  16.     :menu-item-handlers     (nil nil nil nil )
  17.     :menu-item-menus        (nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" )
  19.     :pinnable               nil
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (menu_image "Quit")
  24.         :when                   (Notify )
  25.         :to                     (win)
  26.         :function_type          ExecuteCode
  27.         :arg_type               (:string)
  28.         :action                 ("/* FALSE -> save only if image changed */
  29. save_image(FALSE);
  30. unload_all_masks();
  31.  
  32. if(!begin_timer()) enq_bg_job(JOB_QUIT, 0);
  33. else {
  34.     xv_set(View_win->win,
  35.         FRAME_NO_CONFIRM, TRUE,
  36.         NULL);
  37.  
  38.     xv_destroy_safe(View_win->win);
  39.     exit(0);
  40. }")
  41.         )
  42.     )
  43. )
  44. (
  45.     :type                   :menu
  46.     :name                   menu_segment
  47.     :help                   ""
  48.     :columns                1
  49.     :menu-type              :command
  50.     :menu-handler           nil
  51.     :menu-title             ""
  52.     :menu-item-labels       ("Threshold ..." "Mask growing ..." "Filter ..." )
  53.     :menu-item-label-types  (:string :string :string )
  54.     :menu-item-states       (:active :active :active )
  55.     :menu-item-defaults     (nil nil nil )
  56.     :initial-selections     (nil nil nil )
  57.     :menu-item-handlers     (nil nil nil )
  58.     :menu-item-menus        (nil nil nil )
  59.     :menu-item-colors       ("" "" "" )
  60.     :pinnable               nil
  61.     :user-data              ()
  62.     :actions                (
  63.         (
  64.         :from                   (menu_segment "Threshold ...")
  65.         :when                   (Notify )
  66.         :to                     (menu_segment "Threshold ...")
  67.         :function_type          ExecuteCode
  68.         :arg_type               (:string)
  69.         :action                 ("refresh_histogram();
  70. draw_thresh_bounds();")
  71.         )
  72.     )
  73. )
  74. (
  75.     :type                   :menu
  76.     :name                   menu_preferences
  77.     :help                   ""
  78.     :columns                1
  79.     :menu-type              :command
  80.     :menu-handler           nil
  81.     :menu-title             ""
  82.     :menu-item-labels       ("Display ..." )
  83.     :menu-item-label-types  (:string )
  84.     :menu-item-states       (:active )
  85.     :menu-item-defaults     (nil )
  86.     :initial-selections     (nil )
  87.     :menu-item-handlers     (nil )
  88.     :menu-item-menus        (nil )
  89.     :menu-item-colors       ("" )
  90.     :pinnable               nil
  91.     :user-data              ()
  92.     :actions                ()
  93. )
  94. (
  95.     :type                   :menu
  96.     :name                   menu_masks
  97.     :help                   ""
  98.     :columns                1
  99.     :menu-type              :command
  100.     :menu-handler           nil
  101.     :menu-title             ""
  102.     :menu-item-labels       ("Mask log ..." "Load ..." "New ..." "Save as ..." )
  103.     :menu-item-label-types  (:string :string :string :string )
  104.     :menu-item-states       (:active :active :active :active )
  105.     :menu-item-defaults     (nil nil nil nil )
  106.     :initial-selections     (nil nil nil nil )
  107.     :menu-item-handlers     (nil nil nil nil )
  108.     :menu-item-menus        (nil nil nil nil )
  109.     :menu-item-colors       ("" "" "" "" )
  110.     :pinnable               nil
  111.     :user-data              ()
  112.     :actions                (
  113.     )
  114. )
  115. (
  116.     :type                   :base-window
  117.     :name                   win
  118.     :owner                  nil
  119.     :width                  340
  120.     :height                 120
  121.     :background-color       ""
  122.     :foreground-color       ""
  123.     :label                  "Bryan Skene's Segal (v. 3d)"
  124.     :label-type             :string
  125.     :initial-state          :open
  126.     :show-footer            nil
  127.     :resizable              t
  128.     :icon-file              "icon/segal.xv.icon"
  129.     :icon-label             "Segal: View"
  130.     :icon-mask-file         ""
  131.     :event-handler          nil
  132.     :user-data              ()
  133.     :actions                ()
  134. )
  135. (
  136.     :type                   :control-area
  137.     :name                   controls1
  138.     :owner                  win
  139.     :help                   ""
  140.     :x                      0
  141.     :y                      0
  142.     :width                  340
  143.     :height                 120
  144.     :background-color       ""
  145.     :foreground-color       ""
  146.     :initial-state          :visible
  147.     :show-border            nil
  148.     :menu                   nil
  149.     :event-handler          nil
  150.     :user-data              ()
  151.     :actions                ()
  152. )
  153. (
  154.     :type                   :setting
  155.     :name                   set_zoom_x
  156.     :owner                  controls1
  157.     :help                   ""
  158.     :x                      484
  159.     :y                      0
  160.     :width                  120
  161.     :height                 23
  162.     :value-x                549
  163.     :value-y                0
  164.     :rows                   1
  165.     :columns                0
  166.     :layout-type            :horizontal
  167.     :foreground-color       ""
  168.     :setting-type           :stack
  169.     :selection-required     t
  170.     :label                  "X-Zoom:"
  171.     :label-type             :string
  172.     :notify-handler         nil
  173.     :event-handler          nil
  174.     :choices                ("x 1" "x 2" "x 3" "x 4" "x 5" "x 6" )
  175.     :choice-label-types     (:string :string :string :string :string :string )
  176.     :choice-colors          ("" "" "" "" "" "" )
  177.     :choice-defaults        (nil nil nil nil nil nil )
  178.     :initial-selections     (nil nil nil nil nil nil )
  179.     :initial-state          :invisible
  180.     :user-data              ()
  181.     :actions                (
  182.         (
  183.         :from                   (win set_zoom_x)
  184.         :when                   (Notify )
  185.         :to                     (win set_zoom_x)
  186.         :function_type          ExecuteCode
  187.         :arg_type               (:string)
  188.         :action                 ("win[WIN_VX].zoom_mag = value + 1;
  189. view_setup();
  190. realloc_window_ximage(WIN_VX);
  191. redisplay_view();")
  192.         )
  193.     )
  194. )
  195. (
  196.     :type                   :message
  197.     :name                   msg_image
  198.     :owner                  controls1
  199.     :help                   ""
  200.     :x                      8
  201.     :y                      8
  202.     :width                  100
  203.     :height                 13
  204.     :foreground-color       ""
  205.     :label                  "Image: <None>"
  206.     :label-type             :string
  207.     :label-bold             t
  208.     :initial-state          :active
  209.     :event-handler          nil
  210.     :user-data              ()
  211.     :actions                ()
  212. )
  213. (
  214.     :type                   :message
  215.     :name                   msg_mask
  216.     :owner                  controls1
  217.     :help                   ""
  218.     :x                      14
  219.     :y                      24
  220.     :width                  94
  221.     :height                 13
  222.     :foreground-color       ""
  223.     :label                  "Mask: <None>"
  224.     :label-type             :string
  225.     :label-bold             t
  226.     :initial-state          :active
  227.     :event-handler          nil
  228.     :user-data              ()
  229.     :actions                ()
  230. )
  231. (
  232.     :type                   :slider
  233.     :name                   set_frame_x
  234.     :owner                  controls1
  235.     :help                   ""
  236.     :x                      484
  237.     :y                      24
  238.     :width                  119
  239.     :height                 310
  240.     :value-x                532
  241.     :value-y                24
  242.     :slider-width           256
  243.     :ticks                  0
  244.     :foreground-color       ""
  245.     :label                  "Frame:"
  246.     :label-type             :string
  247.     :layout-type            :horizontal
  248.     :orientation            :vertical
  249.     :show-endboxes          nil
  250.     :show-range             t
  251.     :show-value             t
  252.     :min-value              0
  253.     :max-value              255
  254.     :min-value-string       ""
  255.     :max-value-string       ""
  256.     :min-tick-string        ""
  257.     :max-tick-string        ""
  258.     :initial-value          0
  259.     :initial-state          :invisible
  260.     :notify-handler         nil
  261.     :event-handler          nil
  262.     :user-data              ()
  263.     :actions                (
  264.         (
  265.         :from                   (win set_frame_x)
  266.         :when                   (Notify )
  267.         :to                     (win set_frame_x)
  268.         :function_type          ExecuteCode
  269.         :arg_type               (:string)
  270.         :action                 ("win[WIN_VX].f = value;
  271. win[WIN_VX].repaint = TRUE;
  272. map_buffers();")
  273.         )
  274.     )
  275. )
  276. (
  277.     :type                   :setting
  278.     :name                   set_mode
  279.     :owner                  controls1
  280.     :help                   ""
  281.     :x                      8
  282.     :y                      48
  283.     :width                  134
  284.     :height                 40
  285.     :value-x                8
  286.     :value-y                65
  287.     :rows                   1
  288.     :columns                0
  289.     :layout-type            :vertical
  290.     :foreground-color       ""
  291.     :setting-type           :exclusive
  292.     :selection-required     t
  293.     :label                  "Mode:"
  294.     :label-type             :string
  295.     :notify-handler         nil
  296.     :event-handler          nil
  297.     :choices                ("Segment" "Register" )
  298.     :choice-label-types     (:string :string )
  299.     :choice-colors          ("" "" )
  300.     :initial-selections     (nil nil )
  301.     :initial-state          :inactive
  302.     :user-data              ()
  303.     :actions                (
  304.         (
  305.         :from                   (win set_mode "Register")
  306.         :when                   (Notify )
  307.         :to                     (win set_mode "Register")
  308.         :function_type          ExecuteCode
  309.         :arg_type               (:string)
  310.         :action                 ("segal.mode = MODE_REGISTER;")
  311.         )
  312.         (
  313.         :from                   (win set_mode "Segment")
  314.         :when                   (Notify )
  315.         :to                     (win set_mode "Segment")
  316.         :function_type          ExecuteCode
  317.         :arg_type               (:string)
  318.         :action                 ("segal.mode = MODE_SEGMENT;
  319. if(img.loaded) xv_set(Paint_win_paint->win_paint,
  320.     XV_SHOW, TRUE,
  321.     NULL);")
  322.         )
  323.         (
  324.         :from                   (win set_mode "Register")
  325.         :when                   (Notify )
  326.         :to                     (win but_masks)
  327.         :function_type          :user_defined
  328.         :arg_type               ()
  329.         :action                 (Hide)
  330.         )
  331.         (
  332.         :from                   (win set_mode "Segment")
  333.         :when                   (Notify )
  334.         :to                     (win but_masks)
  335.         :function_type          :user_defined
  336.         :arg_type               ()
  337.         :action                 (Show)
  338.         )
  339.         (
  340.         :from                   (win set_mode "Segment")
  341.         :when                   (Notify )
  342.         :to                     (win but_segment)
  343.         :function_type          :user_defined
  344.         :arg_type               ()
  345.         :action                 (Show)
  346.         )
  347.         (
  348.         :from                   (win set_mode "Register")
  349.         :when                   (Notify )
  350.         :to                     (win but_segment)
  351.         :function_type          :user_defined
  352.         :arg_type               ()
  353.         :action                 (Hide)
  354.         )
  355.         (
  356.         :from                   (win set_mode "Segment")
  357.         :when                   (Notify )
  358.         :to                     (win but_preferences)
  359.         :function_type          :user_defined
  360.         :arg_type               ()
  361.         :action                 (Show)
  362.         )
  363.         (
  364.         :from                   (win set_mode "Register")
  365.         :when                   (Notify )
  366.         :to                     (win but_preferences)
  367.         :function_type          :user_defined
  368.         :arg_type               ()
  369.         :action                 (Hide)
  370.         )
  371.         (
  372.         :from                   (win set_mode "Segment")
  373.         :when                   (Notify )
  374.         :to                     (win msg_not_implemented)
  375.         :function_type          :user_defined
  376.         :arg_type               ()
  377.         :action                 (Hide)
  378.         )
  379.         (
  380.         :from                   (win set_mode "Register")
  381.         :when                   (Notify )
  382.         :to                     (win msg_not_implemented)
  383.         :function_type          :user_defined
  384.         :arg_type               ()
  385.         :action                 (Show)
  386.         )
  387.     )
  388. )
  389. (
  390.     :type                   :setting
  391.     :name                   set_display
  392.     :owner                  controls1
  393.     :help                   ""
  394.     :x                      160
  395.     :y                      48
  396.     :width                  171
  397.     :height                 40
  398.     :value-x                160
  399.     :value-y                65
  400.     :rows                   1
  401.     :columns                0
  402.     :layout-type            :vertical
  403.     :foreground-color       ""
  404.     :setting-type           :nonexclusive
  405.     :selection-required     t
  406.     :label                  "Display:"
  407.     :label-type             :string
  408.     :notify-handler         nil
  409.     :event-handler          nil
  410.     :choices                ("Image" "Mask" "X & Y" )
  411.     :choice-label-types     (:string :string :string )
  412.     :choice-colors          ("" "" "" )
  413.     :initial-selections     (t t t )
  414.     :initial-state          :inactive
  415.     :user-data              ()
  416.     :actions                (
  417.         (
  418.         :from                   (win set_display "Image")
  419.         :when                   (Notify )
  420.         :to                     (win set_display "Image")
  421.         :function_type          ExecuteCode
  422.         :arg_type               (:string)
  423.         :action                 ("segal.disp_image = TRUE;
  424. ")
  425.         )
  426.         (
  427.         :from                   (win set_display "Mask")
  428.         :when                   (Notify )
  429.         :to                     (win set_display "Image")
  430.         :function_type          ExecuteCode
  431.         :arg_type               (:string)
  432.         :action                 ("segal.disp_mask = TRUE;
  433. ")
  434.         )
  435.         (
  436.         :from                   (win set_display "X & Y")
  437.         :when                   (Notify )
  438.         :to                     (win set_display "X & Y")
  439.         :function_type          ExecuteCode
  440.         :arg_type               (:string)
  441.         :action                 ("segal.disp_xy = TRUE;
  442. ")
  443.         )
  444.     )
  445. )
  446. (
  447.     :type                   :button
  448.     :name                   but_image
  449.     :owner                  controls1
  450.     :help                   ""
  451.     :x                      8
  452.     :y                      96
  453.     :width                  69
  454.     :height                 19
  455.     :constant-width         nil
  456.     :button-type            :normal
  457.     :foreground-color       ""
  458.     :label                  "Image"
  459.     :label-type             :string
  460.     :initial-state          :active
  461.     :menu                   menu_image
  462.     :notify-handler         nil
  463.     :event-handler          nil
  464.     :user-data              ()
  465.     :actions                ()
  466. )
  467. (
  468.     :type                   :button
  469.     :name                   but_masks
  470.     :owner                  controls1
  471.     :help                   ""
  472.     :x                      79
  473.     :y                      96
  474.     :width                  63
  475.     :height                 19
  476.     :constant-width         nil
  477.     :button-type            :normal
  478.     :foreground-color       ""
  479.     :label                  "Mask"
  480.     :label-type             :string
  481.     :initial-state          :inactive
  482.     :menu                   menu_masks
  483.     :notify-handler         nil
  484.     :event-handler          nil
  485.     :user-data              ()
  486.     :actions                ()
  487. )
  488. (
  489.     :type                   :button
  490.     :name                   but_segment
  491.     :owner                  controls1
  492.     :help                   ""
  493.     :x                      144
  494.     :y                      96
  495.     :width                  85
  496.     :height                 19
  497.     :constant-width         nil
  498.     :button-type            :normal
  499.     :foreground-color       ""
  500.     :label                  "Segment"
  501.     :label-type             :string
  502.     :initial-state          :inactive
  503.     :menu                   menu_segment
  504.     :notify-handler         nil
  505.     :event-handler          nil
  506.     :user-data              ()
  507.     :actions                ()
  508. )
  509. (
  510.     :type                   :button
  511.     :name                   but_preferences
  512.     :owner                  controls1
  513.     :help                   ""
  514.     :x                      231
  515.     :y                      96
  516.     :width                  103
  517.     :height                 19
  518.     :constant-width         nil
  519.     :button-type            :normal
  520.     :foreground-color       ""
  521.     :label                  "Preferences"
  522.     :label-type             :string
  523.     :initial-state          :inactive
  524.     :menu                   menu_preferences
  525.     :notify-handler         nil
  526.     :event-handler          nil
  527.     :user-data              ()
  528.     :actions                ()
  529. )
  530. (
  531.     :type                   :message
  532.     :name                   msg_not_implemented
  533.     :owner                  controls1
  534.     :help                   ""
  535.     :x                      144
  536.     :y                      118
  537.     :width                  118
  538.     :height                 13
  539.     :foreground-color       ""
  540.     :label                  "Not Implemented"
  541.     :label-type             :string
  542.     :label-bold             t
  543.     :initial-state          :invisible
  544.     :event-handler          nil
  545.     :user-data              ()
  546.     :actions                ()
  547. )
  548. (
  549.     :type                   :message
  550.     :name                   msg_pixel_value
  551.     :owner                  controls1
  552.     :help                   ""
  553.     :x                      8
  554.     :y                      124
  555.     :width                  78
  556.     :height                 13
  557.     :foreground-color       ""
  558.     :label                  "Pixel value:"
  559.     :label-type             :string
  560.     :label-bold             t
  561.     :initial-state          :invisible
  562.     :event-handler          nil
  563.     :user-data              ()
  564.     :actions                ()
  565. )
  566. (
  567.     :type                   :setting
  568.     :name                   set_zoom_z
  569.     :owner                  controls1
  570.     :help                   ""
  571.     :x                      173
  572.     :y                      152
  573.     :width                  119
  574.     :height                 23
  575.     :value-x                237
  576.     :value-y                152
  577.     :rows                   1
  578.     :columns                0
  579.     :layout-type            :horizontal
  580.     :foreground-color       ""
  581.     :setting-type           :stack
  582.     :selection-required     t
  583.     :label                  "Z-Zoom:"
  584.     :label-type             :string
  585.     :notify-handler         nil
  586.     :event-handler          nil
  587.     :choices                ("x 1" "x 2" "x 3" "x 4" "x 5" "x 6" )
  588.     :choice-label-types     (:string :string :string :string :string :string )
  589.     :choice-colors          ("" "" "" "" "" "" )
  590.     :choice-defaults        (nil nil nil nil nil nil )
  591.     :initial-selections     (nil nil nil nil nil nil )
  592.     :initial-state          :invisible
  593.     :user-data              ()
  594.     :actions                (
  595.         (
  596.         :from                   (win set_zoom_z)
  597.         :when                   (Notify )
  598.         :to                     (win set_zoom_z)
  599.         :function_type          ExecuteCode
  600.         :arg_type               (:string)
  601.         :action                 ("win[WIN_VZ].zoom_mag = value + 1;
  602. view_setup();
  603. realloc_window_ximage(WIN_VZ);
  604. redisplay_view();")
  605.         )
  606.     )
  607. )
  608. (
  609.     :type                   :slider
  610.     :name                   set_frame_z
  611.     :owner                  controls1
  612.     :help                   ""
  613.     :x                      172
  614.     :y                      176
  615.     :width                  119
  616.     :height                 310
  617.     :value-x                220
  618.     :value-y                176
  619.     :slider-width           256
  620.     :ticks                  0
  621.     :foreground-color       ""
  622.     :label                  "Frame:"
  623.     :label-type             :string
  624.     :layout-type            :horizontal
  625.     :orientation            :vertical
  626.     :show-endboxes          nil
  627.     :show-range             t
  628.     :show-value             t
  629.     :min-value              0
  630.     :max-value              255
  631.     :min-value-string       ""
  632.     :max-value-string       ""
  633.     :min-tick-string        ""
  634.     :max-tick-string        ""
  635.     :initial-value          0
  636.     :initial-state          :invisible
  637.     :notify-handler         nil
  638.     :event-handler          nil
  639.     :user-data              ()
  640.     :actions                (
  641.         (
  642.         :from                   (win set_frame_z)
  643.         :when                   (Notify )
  644.         :to                     (win set_frame_z)
  645.         :function_type          ExecuteCode
  646.         :arg_type               (:string)
  647.         :action                 ("win[WIN_VZ].f = value;
  648. win[WIN_VZ].repaint = TRUE;
  649. map_buffers();")
  650.         )
  651.     )
  652. )
  653. (
  654.     :type                   :setting
  655.     :name                   set_zoom_y
  656.     :owner                  controls1
  657.     :help                   ""
  658.     :x                      324
  659.     :y                      320
  660.     :width                  120
  661.     :height                 23
  662.     :value-x                389
  663.     :value-y                320
  664.     :rows                   1
  665.     :columns                0
  666.     :layout-type            :horizontal
  667.     :foreground-color       ""
  668.     :setting-type           :stack
  669.     :selection-required     t
  670.     :label                  "Y-Zoom:"
  671.     :label-type             :string
  672.     :notify-handler         nil
  673.     :event-handler          nil
  674.     :choices                ("x 1" "x 2" "x 3" "x 4" "x 5" "x 6" )
  675.     :choice-label-types     (:string :string :string :string :string :string )
  676.     :choice-colors          ("" "" "" "" "" "" )
  677.     :choice-defaults        (nil nil nil nil nil nil )
  678.     :initial-selections     (nil nil nil nil nil nil )
  679.     :initial-state          :invisible
  680.     :user-data              ()
  681.     :actions                (
  682.         (
  683.         :from                   (win set_zoom_y)
  684.         :when                   (Notify )
  685.         :to                     (win set_zoom_y)
  686.         :function_type          ExecuteCode
  687.         :arg_type               (:string)
  688.         :action                 ("win[WIN_VY].zoom_mag = value + 1;
  689. view_setup();
  690. realloc_window_ximage(WIN_VY);
  691. redisplay_view();")
  692.         )
  693.     )
  694. )
  695. (
  696.     :type                   :slider
  697.     :name                   set_frame_y
  698.     :owner                  controls1
  699.     :help                   ""
  700.     :x                      484
  701.     :y                      320
  702.     :width                  119
  703.     :height                 310
  704.     :value-x                532
  705.     :value-y                320
  706.     :slider-width           256
  707.     :ticks                  0
  708.     :foreground-color       ""
  709.     :label                  "Frame:"
  710.     :label-type             :string
  711.     :layout-type            :horizontal
  712.     :orientation            :vertical
  713.     :show-endboxes          nil
  714.     :show-range             t
  715.     :show-value             t
  716.     :min-value              0
  717.     :max-value              256
  718.     :min-value-string       ""
  719.     :max-value-string       ""
  720.     :min-tick-string        ""
  721.     :max-tick-string        ""
  722.     :initial-value          0
  723.     :initial-state          :invisible
  724.     :notify-handler         nil
  725.     :event-handler          nil
  726.     :user-data              ()
  727.     :actions                (
  728.         (
  729.         :from                   (win set_frame_y)
  730.         :when                   (Notify )
  731.         :to                     (win set_frame_y)
  732.         :function_type          ExecuteCode
  733.         :arg_type               (:string)
  734.         :action                 ("win[WIN_VY].f = value;
  735. win[WIN_VY].repaint = TRUE;
  736. map_buffers();")
  737.         )
  738.     )
  739. )
  740. (
  741.     :type                   :canvas-pane
  742.     :name                   canv_x
  743.     :owner                  win
  744.     :help                   ""
  745.     :x                      389
  746.     :y                      55
  747.     :width                  1
  748.     :height                 65
  749.     :background-color       ""
  750.     :foreground-color       ""
  751.     :initial-state          :visible
  752.     :draggable              nil
  753.     :droppable              nil
  754.     :default-drop-site      nil
  755.     :menu                   nil
  756.     :horizontal-scrollbar   nil
  757.     :scrollable-width       1
  758.     :vertical-scrollbar     nil
  759.     :scrollable-height      65
  760.     :repaint-proc           nil
  761.     :event-handler          nil
  762.     :drawing-model          :xview
  763.     :user-data              ()
  764.     :actions                (
  765.         (
  766.         :from                   (win canv_x)
  767.         :when                   (Repaint )
  768.         :to                     (win canv_x)
  769.         :function_type          ExecuteCode
  770.         :arg_type               (:string)
  771.         :action                 ("win[WIN_VX].repaint = TRUE;
  772. map_buffers();")
  773.         )
  774.         (
  775.         :from                   (win canv_x)
  776.         :when                   (AnyEvent )
  777.         :to                     (win canv_x)
  778.         :function_type          ExecuteCode
  779.         :arg_type               (:string)
  780.         :action                 ("view_event(WIN_VX, event);")
  781.         )
  782.     )
  783. )
  784. (
  785.     :type                   :canvas-pane
  786.     :name                   canv_z
  787.     :owner                  win
  788.     :help                   ""
  789.     :x                      20
  790.     :y                      212
  791.     :width                  256
  792.     :height                 1
  793.     :background-color       ""
  794.     :foreground-color       ""
  795.     :initial-state          :visible
  796.     :draggable              nil
  797.     :droppable              nil
  798.     :default-drop-site      nil
  799.     :menu                   nil
  800.     :horizontal-scrollbar   nil
  801.     :scrollable-width       256
  802.     :vertical-scrollbar     nil
  803.     :scrollable-height      1
  804.     :repaint-proc           nil
  805.     :event-handler          nil
  806.     :drawing-model          :xview
  807.     :user-data              ()
  808.     :actions                (
  809.         (
  810.         :from                   (win canv_z)
  811.         :when                   (Repaint )
  812.         :to                     (win canv_z)
  813.         :function_type          ExecuteCode
  814.         :arg_type               (:string)
  815.         :action                 ("win[WIN_VZ].repaint = TRUE;
  816. map_buffers();")
  817.         )
  818.         (
  819.         :from                   (win canv_z)
  820.         :when                   (AnyEvent )
  821.         :to                     (win canv_z)
  822.         :function_type          ExecuteCode
  823.         :arg_type               (:string)
  824.         :action                 ("view_event(WIN_VZ, event);")
  825.         )
  826.     )
  827. )
  828. (
  829.     :type                   :canvas-pane
  830.     :name                   canv_y
  831.     :owner                  win
  832.     :help                   ""
  833.     :x                      366
  834.     :y                      356
  835.     :width                  1
  836.     :height                 1
  837.     :background-color       ""
  838.     :foreground-color       ""
  839.     :initial-state          :visible
  840.     :draggable              nil
  841.     :droppable              nil
  842.     :default-drop-site      nil
  843.     :menu                   nil
  844.     :horizontal-scrollbar   nil
  845.     :scrollable-width       1
  846.     :vertical-scrollbar     nil
  847.     :scrollable-height      1
  848.     :repaint-proc           nil
  849.     :event-handler          nil
  850.     :drawing-model          :xview
  851.     :user-data              ()
  852.     :actions                (
  853.         (
  854.         :from                   (win canv_y)
  855.         :when                   (Repaint )
  856.         :to                     (win canv_y)
  857.         :function_type          ExecuteCode
  858.         :arg_type               (:string)
  859.         :action                 ("win[WIN_VY].repaint = TRUE;
  860. map_buffers();")
  861.         )
  862.         (
  863.         :from                   (win canv_y)
  864.         :when                   (AnyEvent )
  865.         :to                     (win canv_y)
  866.         :function_type          ExecuteCode
  867.         :arg_type               (:string)
  868.         :action                 ("view_event(WIN_VY, event);")
  869.         )
  870.     )
  871. )
  872. (
  873.     :type                   :popup-window
  874.     :name                   pop_timer
  875.     :owner                  win
  876.     :width                  400
  877.     :height                 96
  878.     :background-color       ""
  879.     :foreground-color       ""
  880.     :label                  "Segal: Timer"
  881.     :label-type             :string
  882.     :initial-state          :invisible
  883.     :show-footer            nil
  884.     :resizable              t
  885.     :pinned                 nil
  886.     :done-handler           nil
  887.     :event-handler          nil
  888.     :user-data              ()
  889.     :actions                (
  890.         (
  891.         :from                   (pop_timer)
  892.         :when                   (Resize )
  893.         :to                     (pop_timer)
  894.         :function_type          ExecuteCode
  895.         :arg_type               (:string)
  896.         :action                 ("timer_resize_proc();")
  897.         )
  898.     )
  899. )
  900. (
  901.     :type                   :control-area
  902.     :name                   controls2
  903.     :owner                  pop_timer
  904.     :help                   ""
  905.     :x                      0
  906.     :y                      0
  907.     :width                  400
  908.     :height                 96
  909.     :background-color       ""
  910.     :foreground-color       ""
  911.     :initial-state          :visible
  912.     :show-border            nil
  913.     :menu                   nil
  914.     :event-handler          nil
  915.     :user-data              ()
  916.     :actions                ()
  917. )
  918. (
  919.     :type                   :message
  920.     :name                   msg_working
  921.     :owner                  controls2
  922.     :help                   ""
  923.     :x                      8
  924.     :y                      8
  925.     :width                  69
  926.     :height                 13
  927.     :foreground-color       ""
  928.     :label                  "Working ..."
  929.     :label-type             :string
  930.     :label-bold             t
  931.     :initial-state          :active
  932.     :event-handler          nil
  933.     :user-data              ()
  934.     :actions                ()
  935. )
  936. (
  937.     :type                   :message
  938.     :name                   msg_timer
  939.     :owner                  controls2
  940.     :help                   ""
  941.     :x                      12
  942.     :y                      72
  943.     :width                  60
  944.     :height                 13
  945.     :foreground-color       ""
  946.     :label                  "Message"
  947.     :label-type             :string
  948.     :label-bold             t
  949.     :initial-state          :active
  950.     :event-handler          nil
  951.     :user-data              ()
  952.     :actions                ()
  953. )
  954. (
  955.     :type                   :canvas-pane
  956.     :name                   canv_timer
  957.     :owner                  pop_timer
  958.     :help                   ""
  959.     :x                      0
  960.     :y                      23
  961.     :width                  400
  962.     :height                 40
  963.     :background-color       ""
  964.     :foreground-color       ""
  965.     :initial-state          :visible
  966.     :draggable              nil
  967.     :droppable              nil
  968.     :default-drop-site      nil
  969.     :menu                   nil
  970.     :horizontal-scrollbar   nil
  971.     :scrollable-width       400
  972.     :vertical-scrollbar     nil
  973.     :scrollable-height      40
  974.     :repaint-proc           nil
  975.     :event-handler          nil
  976.     :drawing-model          :xwindows
  977.     :user-data              ()
  978.     :actions                ()
  979. )
  980. )
  981.